home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 13 / Dimension_64_Nr.13_19xx_-_de_Side_A.d64 / iq-test (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  29KB  |  814 lines
  1. 5 poke53280,15:poke53281,15
  2. 10 rem iq-test
  3. 20 rem fragen 01-13
  4. 30 gosub1550:print""tab(10)"intelligenztest":printtab(10)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  5. 40 print"der computer stellt ihnen 20"
  6. 50 print"fragen, die sie moeglichst genau"
  7. 60 print"beantworten muessen. sobald sie"
  8. 70 print"beginnen, wird die benotigte zeitgemessen."
  9. 80 print"gelegentlich wartet der computer,"
  10. 90 print"bis sie einen text gelesen habendruecken sie in diesem fall
  11. 100 [153]"irgendeine taste.":[153]"zum beispiel jetzt.":[141]1530
  12. 110 [153]"":[129]i[178]1[164]16:[153]"                                  ":[130]:[153]""
  13. 120 [153]"der computer schlaegt verschie-":[153]"dene antworten vor."
  14. 121 [153]"sie brauchen dann nur noch die"
  15. 130 [153]"richtige auszusuchen.":[153]"geben sie in jedem fall ihre"
  16. 140 [153]"loesung":[153]"(buchstabe, zahl oder wort)"
  17. 150 [153]"str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$":[153]"bei dem blinkzeichen ein."
  18. 160 [153]"sie koennen jetzt die zeit starten":[153]"und beginnen."
  19. 170 [153]"v i e l   e r f o l g !":[141]1530:ti$[178]"000000"
  20. 180 [153]"loadfrage 1:":[153]"welches der unteren kaestchen eignet"
  21. 190 [153]"sich am besten zur vervollstaendigung"
  22. 200 [153]"der oberen reihe?":[153]"(taste druecken!)":[141]1530
  23. 210 [153]"ortantantantantantan^ ortantantantantantan^ ortantantantantantan^ ortantantantantantan^"
  24. 220 [153]"(NULL)(NULL)=right$(NULL)=right$(NULL) (NULL)(NULL)=right$(NULL)=right$(NULL) (NULL)(NULL) /(NULL) /(NULL) (NULL)      (NULL)"
  25. 230 [153]"(NULL)-(NULL)<-(NULL)<(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)close(NULL) (NULL)  (NULL) (NULL) (NULL)      (NULL)"
  26. 240 [153]"(NULL)mid$>(NULL)mid$>(NULL)(NULL)close(NULL)mid$>(NULL)mid$>(NULL)(NULL)close(NULL)/ (NULL)/ (NULL)(NULL) (NULL)      (NULL)"
  27. 250 [153]"(NULL)(NULL)=right$(NULL)=right$(NULL)close(NULL)(NULL)=right$(NULL)=right$(NULL) (NULL)(NULL) /(NULL) /(NULL) (NULL)      (NULL)"
  28. 260 [153]"(NULL)-(NULL)<-(NULL)<(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL) (NULL)  (NULL) (NULL) (NULL)      (NULL)"
  29. 270 [153]"(NULL)mid$>(NULL)mid$>(NULL)(NULL) (NULL)mid$>(NULL)mid$>(NULL)(NULL) (NULL)/ (NULL)/ (NULL)(NULL) (NULL)      (NULL)"
  30. 280 [153]"/tantantantantantanexpclose/tantantantantantanexp /tantantantantantanexp /tantantantantantanexp"
  31. 290 [153]"ortantantantantantan^ ortantantantantantan^closeortantantantantantan^ ortantantantantantan^"
  32. 300 [153]"(NULL)(NULL) /(NULL) /(NULL) (NULL)(NULL)tanright$(NULL)tanright$(NULL)close(NULL)(NULL) /(NULL) /(NULL) (NULL)(NULL)=right$(NULL)=right$(NULL)"
  33. 310 [153]"(NULL) tan  tan (NULL) (NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL) (NULL)  (NULL) (NULL) (NULL)-(NULL)<-(NULL)<(NULL)"
  34. 320 [153]"(NULL)/ (NULL)/ (NULL)(NULL) (NULL)mid$tan(NULL)mid$tan(NULL)(NULL) (NULL)/ (NULL)/ (NULL)(NULL) (NULL)mid$>(NULL)mid$>(NULL)(NULL)"
  35. 330 [153]"(NULL)(NULL) /(NULL) /(NULL) (NULL)(NULL)tanright$(NULL)tanright$(NULL) (NULL)(NULL) /(NULL) /(NULL) (NULL)(NULL)=right$(NULL)=right$(NULL)"
  36. 340 [153]"(NULL) tan  tan (NULL) (NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL) (NULL)  (NULL) (NULL) (NULL)-(NULL)<-(NULL)<(NULL)"
  37. 350 [153]"(NULL)/ (NULL)/ (NULL)(NULL) (NULL)mid$tan(NULL)mid$tan(NULL)(NULL) (NULL)/ (NULL)/ (NULL)(NULL) (NULL)mid$>(NULL)mid$>(NULL)(NULL)"
  38. 360 [153]"/tantantantantantanexpclose/tantantantantantanexp /tantantantantantanexp /tantantantantantanexp"
  39. 370 [153]"  >a<       >b<      >c<      >d<":[133]a1$
  40. 380 [153]"loadfrage 2:":[153]"ich bin ein mann."
  41. 390 [153]"wenn peters sohn meines sohnes vater"
  42. 400 [153]"ist, was bin ich dann fuer peter?"
  43. 410 [153]">a<  sein grossvater":[153]">b<  sein vater
  44. 420 print">c<  sein sohn":print">d<  sein enkel":print">e<  ich bin peter
  45. 430 [153]">f<  sein onkel":[133]a2$
  46. 440 [153]"loadfrage 3:":[153]"welches wort passt nicht in die"
  47. 450 [153]"folgende gruppe?":[153]">a<  messer":[153]">b<  schwan"
  48. 460 [153]">c<  gelaechter":[153]">d<  felder":[153]">e<  huebsch
  49. 470 print">f<  gedanke":inputa3$
  50. 480 print"[147]frage 4:":print"welche beiden der figuren unten sind"
  51. 490 print"spiegelbilder voneinander?"
  52. 500 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  53. 510 print"[221]  [206][205]     [206][205]   [205][205]  [206][206]  [223][146]       [169][146]  [221]"
  54. 520 print"[221] [206][206][205][205]   [206][206][205][205]   [205][205][206][206]   [165][204][164]   [164][186][170]  [221]"
  55. 530 print"[221][169][146][206]  [205][205] [169][146][206]  [205][223][146]   [205][206]    [204][164][186]   [204][164][186]  [221]"
  56. 540 print"[221]                                 [221]"
  57. 550 print"[221] >a<    >b<    >c<    >d<   >e<  [221]"
  58. 560 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  59. 570 print"(eingabe: buchst.-return[146]-buchst.)":inputa4$:input"[145]und";b4$
  60. 580 print"[147]frage 5:":print"welche zahl kommt in dieser reihe"
  61. 590 print"als naechste?":printtab(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  62. 600 printtab(10)"[221] 9, 16, 25, 36, ...[221]"
  63. 610 printtab(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":inputa5
  64. 620 print"[147]frage 6:":print"ergaenzen sie den folgenden analogie-"
  65. 630 print"schluss mit einem aus vier buchstaben"
  66. 640 print"bestehenden wort, das mit 'e' endet."
  67. 650 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  68. 660 print"oben verhaelt sich zu unten             wie himmel zu ...e."
  69. 670 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  70. 680 print"schreiben sie hier das wort!":inputa6$
  71. 690 print"[147]frage 7:":print"in dem kaestchen unten ergibt sich nach"
  72. 700 print"analogen rechenoperationen waagerecht"
  73. 710 print"und senkrecht aus zwei zahlen einer"
  74. 720 print"reihe die dritte. welche zahl fehlt?"
  75. 730 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  76. 740 print"[221]             [221]
  77. 750 [153]"(NULL) 6    2    4 (NULL)
  78. 760 print"[221]             [221]
  79. 770 [153]"(NULL) 2    ?    0 (NULL)
  80. 780 print"[221]             [221]
  81. 790 [153]"(NULL) 4    0    4 (NULL)
  82. 800 print"[221]             [221]
  83. 810 [153]"/tantantantantantantantantantantantantanexp":[133]a7
  84. 820 [153]"loadfrage 8:":[153]"ergaenzen sie den folgenden analogie-"
  85. 830 [153]"schluss mit einem aus fuenf buchstaben"
  86. 840 [153]"bestehenden wort, das mit 't' endet."
  87. 850 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  88. 860 [153]"moeglich verhaelt sich zu wirklich      wie kuenftig zu ....t."
  89. 870 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  90. 880 [153]"schreiben sie hier wieder das wort!":[133]a8$
  91. 890 [153]"loadfrage 9:":[153]"nennen sie die beiden woerter aus der"
  92. 900 [153]"folgenden gruppe, die nach ihrer bedeu- tung nicht hineinpassen."
  93. 910 [153]">a<  leim"
  94. 920 [153]">b<  sieb
  95. 930 print">c<  kreissaege
  96. 940 [153]">d<  nagel
  97. 950 print">e<  bindfaden
  98. 960 [153]">f<  bueroklammer":[133]a9$:[133]"onund";b9$
  99. 970 [153]"loadfrage 10:"
  100. 980 [153]"berg verhaelt sich zu land":[153]"wie strudel zu:
  101. 990 print">a< wald     >d< himmel":print">b< nass     >e< regenschauer
  102. 1000 [153]">c< meer":[133]c1$
  103. 1010 [153]"frage 11:"
  104. 1020 [153]"nennen sie die zahl, die diese reihe    folgerichtig ergaenzt:"
  105. 1030 [153][163]10)"ortantantantantantantantantantantantantantantantantantantantantan^"
  106. 1040 [153][163]10)"(NULL) 2, 3, 5, 9, 17, ... (NULL)"
  107. 1050 [153][163]10)"/tantantantantantantantantantantantantantantantantantantantantanexp":[133]d1
  108. 1060 [153]"loadfrage 12:"
  109. 1070 [153]"zwei der figuren sind spiegelbilder     voneinander.- welche?"
  110. 1080 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  111. 1090 [153]"(NULL)    stepwait      wait      stepwait    wait    (NULL)"
  112. 1100 [153]"(NULL)   step wait    step logwait    step wait  cos (NULL)wait   (NULL)"
  113. 1110 [153]"(NULL)  step  wait   fre   wait   step  wait     frewait  (NULL)"
  114. 1120 [153]"(NULL) step   wait  step    wait  step   wait      (NULL)wait (NULL)"
  115. 1130 [153]"(NULL)  >a<   >b<   >c<   >d<   (NULL)"
  116. 1140 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantanexp":[133]d2$:[133]"onund";c2$
  117. 1150 [153]"loadfrage 13:"
  118. 1160 [153]"die statistik zeigt, dass autofahrer"
  119. 1170 [153]"maennlichen geschlechts haeufiger in"
  120. 1180 [153]"verkehrsunfaelle verwickelt sind als    frauen."
  121. 1190 [153]"daraus kann man mit sicherheit nur      schliessen...
  122. 1200 print">a< ...dass die maenlichen vorurteile"
  123. 1210 print"       ueber die faehigkeiten der"
  124. 1220 print"       frauen unzutreffend sind."
  125. 1230 print">b< ...dass die maenner bessere"
  126. 1240 print"       autofahrer sind, aber haeufiger         fahren.
  127. 1250 [153]">c< ...dass maenner und frauen gleich-"
  128. 1260 [153]"       gut fahren, maenner aber eine"
  129. 1270 [153]"       hoehere kilometerleistung haben."
  130. 1280 [153]">d< ...dass die meisten lkw-fahrer             maenner sind."
  131. 1290 [153]">e< ...dass man genauere angaben"
  132. 1300 [153]"       fuer eine klare schlussfolgerung        benoetigt.":
  133. 1310 [133]d3$:j$[178]ti$:[141]1550
  134. 1320 [153][163]11)"p a u s e"
  135. 1330 [153]"die zeit ist angehalten!
  136. 1340 print"sie koennen sich also einen"
  137. 1350 print"moment ausruhen."
  138. 1360 fora=1to6000:next
  139. 1370 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  140. 1375 geta$:ifa$=""then1375
  141. 1380 poke826,0:ifa1$="c"thenn=n+1:poke826,1
  142. 1390 poke827,0:ifa2$="c"thenn=n+1:poke827,1
  143. 1400 poke828,0:ifa3$="e"thenn=n+1:poke828,1
  144. 1410 poke829,0:ifa4$="d"andb4$="e"thenn=n+1:poke829,1
  145. 1420 poke830,0:ifa5=49thenn=n+1:poke830,1
  146. 1430 poke831,0:ifa6$="erde"thenn=n+1:poke831,1
  147. 1440 poke832,0:ifa7=2thenn=n+1:poke832,1
  148. 1450 poke833,0:ifa8$="jetzt"thenn=n+1:poke833,1
  149. 1460 poke834,0:ifa9$="b"andb9$="c"thenn=n+1:poke834,1
  150. 1470 poke835,0:ifc1$="c"thenn=n+1:poke835,1
  151. 1480 poke836,0:ifd1=33thenn=n+1:poke836,1
  152. 1490 poke837,0:ifd2$="b"andc2$="d"thenn=n+1:poke837,1
  153. 1500 poke838,0:ifd3$="e"thenn=n+1:poke838,1
  154. 1510 j=val(j$):poke839,n:poke840,int(j/100)
  155. 1520 goto1580
  156. 1530 geta$:ifa$=""then1530
  157. 1540 return
  158. 1550 print"[147]":fori=1to39:print"#";:next:fori=1to22:print"[157]#";:next
  159. 1560 fori=1to38:print"[157]#[157]";:next:print"#"
  160. 1570 fori=1to23:print"[145]#[157]";:next:return
  161. 1580 rem rem fragen 14-20
  162. 1590 j=peek(840)
  163. 1600 n=peek(839)
  164. 1620 print"[147]"
  165. 1630 fori=1to23:print"                                       ":next
  166. 1640 print""
  167. 1650 print""
  168. 1660 printtab(16)"    "
  169. 1670 printtab(14)"        "
  170. 1680 printtab(12)"            "
  171. 1690 printtab(11)"     sind     "
  172. 1700 printtab(10)"    sie fuer    "
  173. 1710 printtab(10)"   die fragen   "
  174. 1720 printtab(10)"    14-20 be-   "
  175. 1730 printtab(11)"     reit     "
  176. 1740 printtab(12)"      ?     "
  177. 1750 printtab(14)"        "
  178. 1760 printtab(16)"    "
  179. 1780 print""
  180. 1790 print"  dann druecken sie wieder eine taste"
  181. 1800 gosub3510
  182. 1810 print"[147]frage 14:":print
  183. 1820 ti$="000000"
  184. 1830 print"in dem kaestchen unten ergibt sich nach"
  185. 1840 print"analogen rechenoperationen waagerecht"
  186. 1850 print"und senkrecht immer aus zwei zahlen"
  187. 1860 print"einer reihe die dritte."
  188. 1870 print"welche zahl fehlt?"
  189. 1880 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  190. 1890 print"[221] 6   2   12 [221]"
  191. 1900 print"[221]            [221]"
  192. 1910 print"[221] 4   5   20 [221]"
  193. 1920 print"[221]            [221]"
  194. 1930 print"[221]24  10   [146]?  [221]"
  195. 1940 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  196. 1950 print:print:inputd4
  197. 1960 print"[147]frage 15:":print
  198. 1970 print"es gilt folgendes:
  199. 1980 [153][163]10)"a mal b = 24
  200. 1990 printtab(10)"c mal d = 32
  201. 2000 [153][163]10)"b mal d = 48
  202. 2010 printtab(10)"b mal c = 24
  203. 2020 [153]"wieviel ist dann":[153]
  204. 2030 [153][163]10)"a mal b mal c mal d?"
  205. 2040 [153][163]10)"frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  206. 2050 [153]:[153]">a<  480
  207. 2060 print">b<  576
  208. 2070 [153]">c<  744
  209. 2080 print">d<  768
  210. 2090 [153]">e<  824
  211. 2100 print:print:inputd5$
  212. 2110 print"[147]frage 16:":print
  213. 2120 print"welche der vier unteren kombinationen
  214. 2130 [153]"ist die beste ergaenzung der oberen     reihe?
  215. 2140 gosub3510
  216. 2150 print"[147]"
  217. 2160 print"[176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174]
  218. 2170 [153]"(NULL)      (NULL) (NULL)  step(NULL)wait  (NULL) (NULL)      (NULL) (NULL)  step(NULL)wait  (NULL)
  219. 2180 print"[221]      [221] [221] [169]  [223][146] [221] [221] [213][192][192][201] [221] [221] [169]  [223][146] [221]
  220. 2190 [153]"(NULL)  (NULL)right$  (NULL) (NULL)      (NULL) (NULL) (NULL)  (NULL) (NULL) (NULL)      (NULL)
  221. 2200 print"[221]  [202][203]  [221] [221]  [213][201]  [221] [221] [202][192][192][203] [221] [221] [213][192][192][201] [221]
  222. 2210 [153]"(NULL)      (NULL) (NULL)  mid$(NULL)  (NULL) (NULL)      (NULL) (NULL) (NULL)  (NULL) (NULL)
  223. 2220 print"[221]  [169][223][146]  [221] [221]      [221] [221]  [169][223][146]  [221] [221] [202][192][192][203] [221]
  224. 2230 [153]"(NULL) step  (NULL)wait (NULL) (NULL)      (NULL)(NULL) step  (NULL)wait (NULL) (NULL)      (NULL)
  225. 2240 print"[173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] ....
  226. 2250 [153]"ortantantantantantan^ ortantantantantantan^ ortantantantantantan^ ortantantantantantan^
  227. 2260 print"[221]  [169][223][146]  [221] [221] [213][192][192][201] [221] [221]  [169][223][146]  [221] [221][213][192][192][192][192][201][221]
  228. 2270 [153]"(NULL) step  (NULL)wait (NULL) (NULL) (NULL)  (NULL) (NULL) (NULL) step  (NULL)wait (NULL) (NULL)(NULL)    (NULL)(NULL)
  229. 2280 print"[221]      [221] [221] [202][192][192][203] [221] [221][213][192][192][192][192][201][221] [221][221]    [221][221]
  230. 2290 [153]"(NULL)      (NULL) (NULL)      (NULL) (NULL)(NULL)    (NULL)(NULL) (NULL)(NULL)    (NULL)(NULL)
  231. 2300 print"[221] [213][192][192][201] [221] [221]      [221] [221][221]    [221][221] [221][202][192][192][192][192][203][221]
  232. 2310 [153]"(NULL) (NULL)  (NULL) (NULL) (NULL)  step(NULL)wait  (NULL) (NULL)(NULL)    (NULL)(NULL) (NULL)  step(NULL)wait  (NULL)
  233. 2320 print"[221] [202][192][192][203] [221] [221] [169]  [223][146] [221] [221][202][192][192][192][192][203][221] [221] [169]  [223][146] [221]
  234. 2330 [153]"/tantantantantantanexp /tantantantantantanexp /tantantantantantanexp /tantantantantantanexp
  235. 2340 print:print"  >a<      >b<      >c<      >d<"
  236. 2350 geta$:print:inputd6$
  237. 2360 print"[147]frage 17:":print
  238. 2370 print"welches wort passt nicht in diese       gruppe?"
  239. 2380 print:print:print">a<  mikroskop
  240. 2390 [153]">b<  lupe
  241. 2400 print">c<  mikrophon
  242. 2410 [153]">d<  fernrohr
  243. 2420 print">e<  telegraph
  244. 2430 [153]:[153]:[133]d7$
  245. 2440 [153]"loadfrage 18:"
  246. 2450 [153]:[153]"nennen sie die beiden woerter, die"
  247. 2460 [153]"sich in ihrer bedeutung aehnlich sind.":[153]:[153]
  248. 2470 [153]">a<  schimmer
  249. 2480 print">b<  brocken
  250. 2490 [153]">c<  gekicher
  251. 2500 print">d<  glanz
  252. 2510 [153]">e<  sammlung
  253. 2520 print:print:inputd8$
  254. 2530 input"[145]und";c8$
  255. 2540 print"[147]frage 19:":print
  256. 2550 print"wenn fritz an der kreuzung nach rechts"
  257. 2560 print"oder links abbiegt, wird ihm vor er-"
  258. 2570 print"reichen einer tankstelle das benzin"
  259. 2580 print"ausgehen.
  260. 2590 [153]"auch wenn er umdreht, erreicht er mit
  261. 2600 print"seinem treibstoffvorrat keine tankstel-
  262. 2610 [153]"le mehr; noch kann er geradeaus eine    sehen.":[153]
  263. 2620 [153]"nur eine der folgenden behauptungen
  264. 2630 print"laesst sich aus dieser sachlage einwand-frei ableiten:"
  265. 2640 gosub3510
  266. 2650 print"[147]>a<  kann sein, dass ihm das benzin          ausgeht.":print
  267. 2660 print">b<  ihm geht bestimmt das benzin aus.":print
  268. 2670 print">c<  er haette einen anderen weg waeh-       len sollen.":print
  269. 2680 print">d<  er hat sich verfahren.":print
  270. 2690 print">e<  er muss rechts abbiegen.":print
  271. 2700 print">f<  er muss links abbiegen.
  272. 2710 [153]:[153]:[133]d9$
  273. 2720 [153]"loadfrage 20:":[153]
  274. 2730 [153]"ergaenzen sie den folgenden"
  275. 2740 [153]"analogieschluss:":[153]:[153]
  276. 2750 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  277. 2760 print"[221][213][192][192][192][201] [213][192][192][192][201] [213][192][192][192][201]          [176][174] [169][223][146]     [221]
  278. 2770 [153]"(NULL)(NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL)(NULL) verhaelt (NULL)(NULL) (NULL)(NULL) stepwaitascasc(NULL)wait(NULL)"
  279. 2780 [153]"(NULL)(NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)   sich   (NULL)(NULL) (NULL)(NULL) (NULL)str$str$step(NULL)
  280. 2790 print"[221][221][202][192][203][221] [221][213][192][201][221] [221] [192] [221]    zu    [223][169] [173][189]     [221]"
  281. 2800 print"[221][202][192][192][192][203] [202][192][192][192][203] [202][192][192][192][203]"tab(38)"[221]"
  282. 2810 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  283. 2820 [153]:[153]"wie + - 0 zu:
  284. 2830 print"[184][184][184][184][184][184][184][184][184][184][184][184][184]
  285. 2840 [153]">a<"[163]10)"+ - 0
  286. 2850 print">b<"tab(10)"0 + -
  287. 2860 [153]">c<"[163]10)"- + 0
  288. 2870 print">d<"tab(10)"0 - +
  289. 2880 [153]">e<"[163]10)"+ + 0
  290. 2890 print:inpute1$
  291. 2900 k$=ti$
  292. 2910 k=val(k$)
  293. 2920 t=int(k/100)+j
  294. 2930 poke841,0:ifd4=240thenn=n+1:poke841,1
  295. 2940 poke842,0:ifd5$="d"thenn=n+1:poke842,1
  296. 2950 poke843,0:ifd6$="d"thenn=n+1:poke843,1
  297. 2960 poke844,0:ifd7$="e"thenn=n+1:poke844,1
  298. 2970 poke845,0:ifd8$="a"andc8$="d"thenn=n+1:poke845,1
  299. 2980 poke846,0:ifd9$="a"thenn=n+1:poke846,1
  300. 2990 poke847,0:ife1$="c"thenn=n+1:poke847,1
  301. 3000 poke839,n:poke840,t
  302. 3010 print"[147]"
  303. 3020 print"   [166][166][166][166]   [166][166][166][166]     [166]    [166]   [166]   [166][166][166]
  304. 3030 [153]"   spc(   spc(  spc(   spc(   spc( spc(   spc(   spc(  spc(   spc(
  305. 3040 print"   [166]   [166]  [166]   [166]  [166]   [166]  [166]   [166]  [166]   [166]
  306. 3050 [153]"   spc(spc(spc(spc(   spc(spc(spc(spc(   spc(spc(spc(spc(spc(  spc(   spc(  spc(   spc(
  307. 3060 print"   [166]   [166]  [166] [166]    [166]   [166]  [166]   [166]  [166]   [166]
  308. 3070 [153]"   spc(   spc(  spc(  spc(   spc(   spc(   spc( spc(   spc(   spc(
  309. 3080 print"   [166][166][166][166]   [166]   [166]  [166]   [166]    [166]     [166][166][166]
  310. 3090 [153]"   sie absolvierten den test in "t"
  311. 3100 print"   minuten und loesten dabei "n
  312. 3110 print"   fragen richtig."
  313. 3120 print"         (auswertung folgt!)
  314. 3130 [153]"":[129]i[178]1[164]39:[153]"(NULL)";:[130]:[129]i[178]1[164]22:[153]"cmd(NULL)";:[130]
  315. 3140 [129]i[178]1[164]39:[153]"cmd(NULL)cmd";:[130]:[129]i[178]1[164]22:[153]"on(NULL)cmd";:[130]
  316. 3150 y[178]ti:[129]i[178]1[164]500:x[178](ti[171]y[173]60):[130]
  317. 3160 [139]t[179][178]15[167]p[178]n[170]5
  318. 3170 [139]t[177]15[175]t[179][178]20[167]p[178]n[170]3
  319. 3180 [139]t[177]20[175]t[179][178]25[167]p[178]n[170]2
  320. 3190 [139]t[177]25[167]p[178]n
  321. 3200 [153]"loadvon 25 maximal erreichbaren bewertungs- punkten erhalten sie"
  322. 3210 [153]" - unter beruecksichtigung der benoe-   tigten zeit -
  323. 3220 printtab(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  324. 3230 [153][163]10)"(NULL) "p" punkte"[163]24)"(NULL)
  325. 3240 printtab(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][189].
  326. 3250 [153]""
  327. 3260 [139]p[177][178]20[167]3440
  328. 3270 [139]p[177][178]15[175]p[179]20[167]3390
  329. 3280 [139]p[177][178]10[175]p[179]15[167]3340
  330. 3290 [153]"sicherlich haben sie gerade einen       schlechten tag erwischt,
  331. 3300 print"denn dies ist kein ruehmliches ergebnis.
  332. 3310 [153]"aber troesten sie sich. einige der er-
  333. 3320 print"folgreichsten und beruehmtesten leute   sind auch nicht besser."
  334. 3330 geta$:goto3530
  335. 3340 print"sie haben keinen grund, sich zu ge-     nieren.
  336. 3350 [153]"denn dies ist immer noch ein respek-    tables ergebnis.
  337. 3360 print:print"wenn sie auch nicht zur geistigen elite
  338. 3370 [153]"gehoeren, koennen sie sich in einigen
  339. 3380 print"punkten dennoch mit meinem 'computer-   gehirn' messen.":goto3530
  340. 3390 print"damit gehoeren sie in punkto intelligenzzu den oberen zehntausend.
  341. 3400 [153]
  342. 3410 [153]:[153]"als computer muss ich sie ganz klar
  343. 3420 print"um ihren verstand beneiden, denn aus    ihnen wird mit sicherheit
  344. 3430 [153]"ein grosser dichter und denker.":[161]a$:[137]3530
  345. 3440 [153]"alle bewuderung.-":[153]
  346. 3450 [153]"als mensch sind sie ausnehmend          intelligent.
  347. 3460 print"(oder sind sie vielleicht ein anderer   computer?)
  348. 3470 [153]:[153]"mit ihrem verstand gehoeren sie eindeu-
  349. 3480 print"zu den intelligentesten wesen dieses    planeten.
  350. 3490 [153]"als computer kann ich  sie darum nur    beneiden."
  351. 3500 [137]3530
  352. 3510 [161]a$:[139]a$[178]""[167]3510
  353. 3520 [142]
  354. 3530 [153]"***bitte eine taste druecken !wait***"
  355. 3540 [141]3510
  356. 3550 [153]"load*** soviel vorweg.":[153]"die richtigen antworten"
  357. 3560 [153]"und eine ausfuehliche auswertung ihrer  leistung erfahren sie in den
  358. 3570 print"naechsten teilprogrammen.
  359. 3580 [129]a[178]1[164]6000:[130]
  360. 3590 [143] aufloesung fragen 01-13
  361. 3600 [141]5380
  362. 3610 [153]""[163]10)"a u f l o e s u n g":[153][163]10)"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  363. 3620 [153][163]8)"der testfragen 1 - 13 :":[153][163]8)"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  364. 3630 [153]"im folgenden erfahren sie die"
  365. 3640 [153]"richtigen antworten der fragendes intelligenztestes."
  366. 3650 [153]"falls sie dies wuenschen, drueckensie wieder eine taste !
  367. 3660 gosub5360
  368. 3670 al$="aufloesung der frage "
  369. 3680 r$="diese frage loesten sie absolut richtig.[146]"
  370. 3690 f$="leider beantworteten sie diese frage    falsch.[146]"
  371. 3700 print"[147]"al$"1 :"
  372. 3710 print"[176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174]"
  373. 3720 print"[221][213][178][201][213][178][201][221] [221][213][178][201][213][178][201][221] [221][205] /[205] /[221] [221][205] /[205] /[221]"
  374. 3730 print"[221][171][219][179][171][219][179][221] [221][221][221][221][221][221][221][221][160][221] [219]  [219] [221] [221] [221]  [221] [221]"
  375. 3740 print"[221][202][177][203][202][177][203][221][160][221][202][177][203][202][177][203][221][160][221]/ [205]/ [205][221] [221]/ [205]/ [205][221]"
  376. 3750 print"[221][213][178][201][213][178][201][221][160][221][213][178][201][213][178][201][221] [221][205] /[205] /[221] [221][205] /[205] /[221]"
  377. 3760 print"[221][171][219][179][171][219][179][221] [221][221][221][221][221][221][221][221] [221] [219]  [219] [221] [221] [221]  [221] [221]"
  378. 3770 print"[221][202][177][203][202][177][203][221] [221][202][177][203][202][177][203][221] [221]/ [205]/ [205][221] [221]/ [205]/ [205][221]"
  379. 3780 print"[173][192][192][192][192][192][192][189][160][173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] [173][192][192]^[192][192][192][189]"
  380. 3790 print"                     [176][192][192][192][192][192][192][192][192][189]
  381. 3800 [153]"ortantantantantantan^ ortantantantantantan^closeortantan>tantantan^ ortantantantantantan^"
  382. 3810 [153]"(NULL)(NULL) /(NULL) /(NULL) (NULL)(NULL)tanright$(NULL)tanright$(NULL)close(NULL)      (NULL) (NULL)(NULL)=right$(NULL)=right$(NULL)"
  383. 3820 [153]"(NULL) tan  tan (NULL) (NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL)      (NULL) (NULL)-(NULL)<-(NULL)<(NULL)"
  384. 3830 [153]"(NULL)/ (NULL)/ (NULL)(NULL) (NULL)mid$tan(NULL)mid$tan(NULL)(NULL) (NULL)  >c< (NULL) (NULL)mid$>(NULL)mid$>(NULL)(NULL)"
  385. 3840 [153]"(NULL)(NULL) /(NULL) /(NULL) (NULL)(NULL)tanright$(NULL)tanright$(NULL) (NULL)      (NULL) (NULL)(NULL)=right$(NULL)=right$(NULL)"
  386. 3850 [153]"(NULL) tan  tan (NULL) (NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL)      (NULL) (NULL)-(NULL)<-(NULL)<(NULL)"
  387. 3860 [153]"(NULL)/ (NULL)/ (NULL)peek (NULL)mid$tan(NULL)mid$tan(NULL)(NULL) (NULL)      (NULL) (NULL)mid$>(NULL)mid$>(NULL)(NULL)"
  388. 3614 [153]"/tantantantantantanexpclose/tantantantantantanexp /tantantantantantanexp /tantantantantantanexp"
  389. 3880 [153]"kaestchen >c< eignet sich am besten zur
  390. 3890 print"vervollstaendigung der oberen reihe:"
  391. 3900 print"das kreuz im 1.kaestchen wird im 2. von einer senkrechten abgeloest;
  392. 3910 [153]"also muss dies auch mit dem kreuz zwi-  schen den diagonalen geschehen.
  393. 3920 gosub5360
  394. 3930 print"[147]":ifpeek(826)=1thenprintr$:goto3950
  395. 3940 printf$
  396. 3950 gosub5360
  397. 3960 print"[147]"al$"2 :"
  398. 3970 print"ich bin ein mann."
  399. 3980 print"wenn peters sohn meines sohnes vater"
  400. 3990 print"ist, was bin ich dann fuer peter?"
  401. 4000 print"richtige antwort:"
  402. 4010 print">c<  sein sohn
  403. 4020 [153]"anmerkung: meines sohnes vater bin ich!"
  404. 4030 [153]"":[139][194](827)[178]1[167][153]r$:[137]4050
  405. 4040 [153]f$
  406. 4050 [141]5360:[153]"load"al$"3 :"
  407. 4060 [153]:[153]">a<  messer
  408. 4070 print">b<  schwan
  409. 4080 [153]">c<  gelaechter
  410. 4090 print">d<  felder
  411. 4100 [153]">e<  huebsch
  412. 4110 print">f<  gedanke
  413. 4120 [153]"gefragt war nach dem wort, das nichtwait in diese gruppe passt."
  414. 4130 [153]"dieses wort ist: 'huebsch'"
  415. 4140 [153]"alle anderen woerter sind substantive   (hauptwoerter)!"
  416. 4150 [153]"":[139][194](828)[178]1[167][153]r$:[137]4170
  417. 4160 [153]f$
  418. 4170 [141]5360
  419. 4180 [153]"load"al$"4 :"
  420. 4190 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  421. 4200 [153]"(NULL)  (NULL)(NULL)     (NULL)(NULL)   (NULL)(NULL)  (NULL)(NULL)  (NULL)wait       stepwait  (NULL)"
  422. 4210 [153]"(NULL) (NULL)(NULL)(NULL)(NULL)   (NULL)(NULL)(NULL)(NULL)   (NULL)(NULL)(NULL)(NULL)   fn(NULL)to   tosqrthen  (NULL)"
  423. 4220 [153]"(NULL)stepwait(NULL)  (NULL)(NULL) stepwait(NULL)  (NULL)(NULL)wait   (NULL)(NULL)    (NULL)tosqr   (NULL)tosqr  (NULL)"
  424. 4230 [153]"(NULL)                                 (NULL)"
  425. 4240 [153]"(NULL) >a<    >b<    >c<    >d<   >e<  (NULL)"
  426. 4250 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  427. 4260 [153]"die figuren >d< und >e< sind spiegelbil-der voneinander."
  428. 4270 [153]"":[139][194](829)[178]1[167][153]r$:[137]4290
  429. 4280 [153]f$
  430. 4290 [141]5360
  431. 4300 [153]"load"al$"5 :"
  432. 4310 [153][163]10)"ortantantantantantantantantantantantantantantantantantantan^"
  433. 4320 [153][163]10)"(NULL) 9, 16, 25, 36, ...(NULL)"
  434. 4330 [153][163]10)"/tantantantantantantantantantantantantantantantantantantanexp"
  435. 4340 [153]"die zahlenreihe wird konsequent weiter- gefuehrt mit der zahl: 49"
  436. 4350 [153]"(es sind die quadrate der zahlen        3,4,5,6,7,..."
  437. 4360 [153]"das heisst: die zahlen werden mit sich  selbst malgenommen."
  438. 4370 [153]"":[139][194](830)[178]1[167][153]r$:[137]4390
  439. 4380 [153]f$
  440. 4390 [141]5360
  441. 4400 [153]"load"al$"6 :"
  442. 4410 [153]"sie sollten den folgenden analogie-"
  443. 4420 [153]"schluss mit einem aus vier buchstaben"
  444. 4430 [153]"bestehenden wort ergaenzen, das mit     'e' endet."
  445. 4440 [153]"totototototototototototototototototototototototototototototototototototototototo"
  446. 4450 [153]"oben verhaelt sich zu unten             wie himmel zu erdewait."
  447. 4460 [153]
  448. 4470 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  449. 4480 [139][194](831)[178]1[167][153]"sie schrieben das richtige wort: erde.wait":[137]4500
  450. 4490 [153]"sie schrieben leider nicht: erde!wait"
  451. 4500 [141]5360
  452. 4510 [153]"load"al$"7 :"
  453. 4520 [153]"in dem kaestchen unten ergibt sich nach"
  454. 4530 [153]"analogen rechenoperationen waagerecht"
  455. 4540 [153]"und senkrecht aus zwei zahlen einer"
  456. 4550 [153]"reihe die dritte."
  457. 4560 [153]"gesucht war die: 2"
  458. 4570 [153]"ortantantantantantantantantantantantantan^"
  459. 4580 [153]"(NULL)             (NULL)
  460. 4590 print"[221] 6    2    4 [221]
  461. 4600 [153]"(NULL)     (NULL)tanright$     (NULL)
  462. 4610 print"[221] 2   [221]2[221]   0 [221]
  463. 4620 [153]"(NULL)     mid$tan(NULL)     (NULL)
  464. 4630 print"[221] 4    0    4 [221]
  465. 4640 [153]"(NULL)             (NULL)
  466. 4650 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  467. 4660 ifpeek(832)=1thenprintr$:goto4680
  468. 4670 printf$
  469. 4680 gosub5360
  470. 4690 print"[147]"al$"8 :"
  471. 4700 print"den folgenden analogieschluss mit einem"
  472. 4710 print"aus fuenf buchstaben bestehenden wort,"
  473. 4720 print"das mit 't' endet, sollten sie          ergaenzen:"
  474. 4730 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  475. 4740 print"moeglich verhaelt sich zu wirklich      wie kuenftig zu jetzt[146]."
  476. 4750 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  477. 4760 ifpeek(833)=1thenprintr$:goto4780
  478. 4770 printf$
  479. 4780 gosub5360
  480. 4790 print"[147]"al$"9 :"
  481. 4800 print"zwei woerter passen nach ihrer bedeu-"
  482. 4810 print"tung nicht in die folgende gruppe:"
  483. 4820 print">a<  leim"
  484. 4830 print">b<  sieb
  485. 4840 [153]">c<  kreissaege"
  486. 4850 [153]">d<  nagel
  487. 4860 print">e<  bindfaden
  488. 4870 [153]">f<  bueroklammer
  489. 4880 print"ausser dem sieb und der kreissaege"
  490. 4890 print"koennen alle gegenstaende etwas         zusammenhalten."
  491. 4900 ifpeek(834)=1thenprintr$:goto4920
  492. 4910 printf$
  493. 4920 gosub5360:print"[147]"al$"10:"
  494. 4930 print"berg verhaelt sich zu land"
  495. 4940 print"wie strudel zu:
  496. 4950 [153]">c< meer"
  497. 4960 [139][194](835)[178]1[167][153]"sie folgerten richtig: meer!wait":[137]4980
  498. 4970 [153]"sie dachten faelschlicherweise an ein   anderes wort!wait"
  499. 4980 [141]5360:[153]"load"al$"11:"
  500. 4990 [153]"richtig ergaenzt lautet die folgende    zahlenreihe:"
  501. 5000 [153][163]10)"ortantantantantantantantantantantantantantantantantantantantantan^"
  502. 5010 [153][163]10)"(NULL) 2, 3, 5, 9, 17,33wait   (NULL)"
  503. 5020 [153][163]10)"/tantantantantantantantantantantantantantantantantantantantantanexp"
  504. 5030 [153]"der abstand zwischen den zahlen folgt   den zweierpotenzen."
  505. 5040 [153]"das heisst: die differenz verdoppelt    sich jeweils."
  506. 5050 [139][194](836)[178]1[167][153]"sie erkannten diesen zusammenhang!wait":[137]5070
  507. 5060 [153]"sie vermuteten einen anderen zusammen-  hang!wait"
  508. 5070 [141]5360:[153]"load"al$"12:"
  509. 5080 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  510. 5090 [153]"(NULL)    stepwait      wait      stepwait    wait    (NULL)"
  511. 5100 [153]"(NULL)   step wait    step logwait    step wait  cos (NULL)wait   (NULL)"
  512. 5110 [153]"(NULL)  step  wait   fre   wait   step  wait     frewait  (NULL)"
  513. 5120 [153]"(NULL) step   wait  step    wait  step   wait      (NULL)wait (NULL)"
  514. 5130 [153]"(NULL)  >a<   >b<   >c<   >d<   (NULL)"
  515. 5140 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  516. 5150 [153]"natuerlich sind die figuren >b< und >d< spiegelbilder voneinander."
  517. 5160 [139][194](837)[178]1[167][153]r$:[137]5180
  518. 5170 [153]f$
  519. 5180 [141]5360:[153]"load"al$"13:"
  520. 5190 [153]"die statistik zeigt, dass autofahrer"
  521. 5200 [153]"maennlichen geschlechts haeufiger in"
  522. 5210 [153]"verkehrsunfaelle verwickelt sind als"
  523. 5220 [153]"frauen."
  524. 5230 [153]"daraus kann man mit sicherheit nur      schliessen...
  525. 5240 print">e< ...dass man genauere angaben"
  526. 5250 print"       fuer eine klare schlussfolgerung        benoetigt.":
  527. 5260 print"m e h r   n i c h t!"
  528. 5270 print"===================="
  529. 5280 ifpeek(838)=1thenprint"aber das haben sie ja richtig erkannt![146]":goto5320
  530. 5290 print"dies hatten sie sich nicht genau        ueberlegt.%"
  531. 5300 print"oder fuehlten sie sich in ahrer maenn-  lichen ehre verletzt"
  532. 5310 print"oder vielleicht in ihrer weiblichen ehrezu sehr geschmeichelt ?[146]"
  533. 5320 gosub5360:gosub5380
  534. 5330 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  535. 5340 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  536. 5350 gosub5360:goto5410
  537. 5360 geta$:ifa$=""then5360
  538. 5370 geta$:return
  539. 5380 print"[147]":fori=1to39:print"#";:next:fori=1to22:print"[157]#";:next
  540. 5390 fori=1to38:print"[157]#[157]";:next:print"#"
  541. 5400 fori=1to23:print"[145]#[157]";:next:return
  542. 5410 rem aufloesung fragen 14-20
  543. 5420 print"[147]"
  544. 5430 fori=1to23:print"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]":next
  545. 5450 print""tab(9)" a u f l o e s u n g "
  546. 5460 printtab(6)"der fragen 14-20 des tests:"
  547. 5470 print"bitte druecken sie wieder eine taste[146]"
  548. 5480 al$="aufloesung der frage "
  549. 5490 r$="gratuliere.- sie haben dies richtig     erkannt![146]"
  550. 5500 f$="tut mir leid.- hier irrten sie![146]"
  551. 5510 gosub6720
  552. 5520 print"[147]"al$"14:"
  553. 5530 print"in dem kaestchen unten ergibt sich nach"
  554. 5540 print"analogen rechenoperationen waagerecht"
  555. 5550 print"und senkrecht immer aus zwei zahlen"
  556. 5560 print"einer reihe die dritte."
  557. 5570 print"es fehlt die zahl: 240"
  558. 5580 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  559. 5590 print"[221] 6 * 2 = 12 [221]"
  560. 5600 print"[221] *   *   *  [221][146][160][160]rechenoperation:"
  561. 5610 print"[221] 4 * 5 = 20 [221][146]  multiplikation"
  562. 5620 print"[221] =  ==   =  [221][146]  der zahlen !"
  563. 5630 print"[221]24 *10 = [146]240[221]"
  564. 5640 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  565. 5650 ifpeek(841)=1thenprintr$:goto5670
  566. 5660 printf$
  567. 5670 gosub6720:print"[147]"al$"15:"
  568. 5680 print"es gilt folgendes:
  569. 5690 [153][163]10)"a mal b = 24
  570. 5700 printtab(10)"c mal d = 32
  571. 5710 [153][163]10)"b mal d = 48
  572. 5720 printtab(10)"b mal c = 24
  573. 5730 [153]"das ergebnis aus
  574. 5740 printtab(10)"a mal b mal c mal d"
  575. 5750 printtab(10)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  576. 5760 print"ist dann ganz einfach a * b (also:24)   mal c * d (32)."
  577. 5770 print"die loesung ist demnach 24 * 32 = 768."
  578. 5780 print"die angaben b*d=48 und b*c=24 dienten   nur der irrefuehrung!"
  579. 5790 print"richtiger loesungsbuchstabe: >d<"
  580. 5800 ifpeek(842)=1thenprint"sie sind ein geborener mathematiker![146]":goto5820
  581. 5810 print"troesten sie sich.- dies war auch nicht leicht![146]"
  582. 5820 gosub6720:print"[147]"al$"16:"
  583. 5830 print"[176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174]
  584. 5840 [153]"(NULL)      (NULL) (NULL)  step(NULL)wait  (NULL) (NULL)      (NULL) (NULL)  step(NULL)wait  (NULL)
  585. 5850 print"[221]      [221] [221] [169]  [223][146] [221] [221] [213][192][192][201] [221] [221] [169]  [223][146] [221]
  586. 5860 [153]"(NULL)  (NULL)right$  (NULL) (NULL)      (NULL) (NULL) (NULL)  (NULL) (NULL) (NULL)      (NULL)
  587. 5870 print"[221]  [202][203]  [221] [221]  [213][201]  [221] [221] [202][192][192][203] [221] [221] [213][192][192][201] [221]
  588. 5880 [153]"(NULL)      (NULL) (NULL)  mid$(NULL)  (NULL) (NULL)      (NULL) (NULL) (NULL)  (NULL) (NULL)
  589. 5890 print"[221]  [169][223][146]  [221] [221]      [221] [221]  [169][223][146]  [221] [221] [202][192][192][203] [221]
  590. 5900 [153]"(NULL) step  (NULL)wait (NULL) (NULL)      (NULL)(NULL) step  (NULL)wait (NULL) (NULL)      (NULL) >d<
  591. 5910 print"[173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] ...
  592. 5920 [153]"ortantantantantantan^ ortantantantantantan^ ortantantantantantan^ ortantantantantantan^
  593. 5930 print"[221]  [169][223][146]  [221] [221] [213][192][192][201] [221] [221]  [169][223][146]  [221] [221][213][192][192][192][192][201][221]
  594. 5940 [153]"(NULL) step  (NULL)wait (NULL) (NULL) (NULL)  (NULL) (NULL) (NULL) step  (NULL)wait (NULL) (NULL)(NULL)    (NULL)(NULL)
  595. 5950 print"[221]      [221] [221] [202][192][192][203] [221] [221][213][192][192][192][192][201][221] [221][221]    [221][221]
  596. 5960 [153]"(NULL)      (NULL) (NULL)      (NULL) (NULL)(NULL)    (NULL)(NULL) (NULL)(NULL)    (NULL)(NULL)
  597. 5970 print"[221] [213][192][192][201] [221] [221]      [221] [221][221]    [221][221] [221][202][192][192][192][192][203][221]
  598. 5980 [153]"(NULL) (NULL)  (NULL) (NULL) (NULL)  step(NULL)wait  (NULL) (NULL)(NULL)    (NULL)(NULL) (NULL)  step(NULL)wait  (NULL)
  599. 5990 print"[221] [202][192][192][203] [221] [221] [169]  [223][146] [221] [221][202][192][192][192][192][203][221] [221] [169]  [223][146] [221]
  600. 6000 [153]"/tantantantantantanexp /tantantantantantanexp /tantantantantantanexp /tantantantantantanexp
  601. 6010 print"  >a<      >b<      >c<      >d<"
  602. 6020 print"das dreieck wechselt immer die posi-"
  603. 6030 print"tion, waehrend das umschlossene feld    groesser wird.":gosub6720
  604. 6040 print"[147]":ifpeek(843)=1thenprintr$:goto6060
  605. 6050 printf$
  606. 6060 gosub6720:print"[147]"al$"17:"
  607. 6070 print"das wort telegraph[146] passt nicht in       diese gruppe!"
  608. 6080 print">a<  mikroskop
  609. 6090 [153]">b<  lupe
  610. 6100 print">c<  mikrophon
  611. 6110 [153]">d<  fernrohr
  612. 6120 print">e<  telegraph
  613. 6130 [153]"alle gegenstaende sind in der lage,
  614. 6140 print"etwas zu vergroessern oder zu ver-      staerken (mikrophon);"
  615. 6150 print"der telegraph bildet hier eine ausnahme.
  616. 6160 [139][194](844)[178]1[167][153]r$:[137]6180
  617. 6170 [153]f$
  618. 6180 [141]6720:[153]"load"al$"18:"
  619. 6190 [153]"die beiden woerter schimmer und glanz
  620. 6200 print"sind in ihrer bedeutung aehnlich."
  621. 6210 print">a<  schimmer
  622. 6220 [153]">b<  brocken
  623. 6230 print">c<  gekicher
  624. 6240 [153]">d<  glanz
  625. 6250 print">e<  sammlung"
  626. 6260 ifpeek(845)=1thenprint"sie wussten dies![146]":goto6280
  627. 6270 printf$
  628. 6280 gosub6720:print"[147]"al$"19:"
  629. 6290 print"wenn fritz an der kreuzung nach rechts"
  630. 6300 print"oder links abbiegt, wird ihm vor er-"
  631. 6310 print"reichen einer tankstelle das benzin"
  632. 6320 print"ausgehen.
  633. 6330 [153]"auch wenn er umdreht, erreicht er mit
  634. 6340 print"seinem treibstoffvorrat keine tankstel-
  635. 6350 [153]"le mehr; noch kann er geradeaus eine    sehen.":[153]
  636. 6360 [153]"nur die behauptung >a< laesst sich aus
  637. 6370 print"dieser sachlage einwandfrei ableiten:"
  638. 6380 print">a<  kann sein, dass ihm das benzin          ausgeht.":print
  639. 6390 print"alles andere ist spekulation![146]"
  640. 6400 ifpeek(846)=1thenprint"sie haben diese frage klar beantwortet![146]":goto6430
  641. 6410 print"sie haben diese frage klar und selbst-"
  642. 6420 print"bewusst - aber leider falsch - beant-   wortet.[146]"
  643. 6430 gosub6720:print"[147]"al$"20:"
  644. 6440 print"als letztes sollten sie noch den fol-"
  645. 6450 print"genden analogieschluss erkennen:"
  646. 6460 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  647. 6470 [153]"(NULL)(NULL)tantantanright$ (NULL)tantantanright$ (NULL)tantantanright$          or^ step(NULL)wait     (NULL)
  648. 6480 print"[221][221][215] [215][221] [221][215] [215][221] [221][215] [215][221] verhaelt [221][221] [221][221] [169][146][198][198][223][146][221]"
  649. 6490 print"[221][221] [209] [221] [221] [209] [221] [221] [209] [221]   sich   [221][221] [221][221] [223][196][196][169][221]
  650. 6500 [153]"(NULL)(NULL)mid$tan(NULL)(NULL) (NULL)(NULL)tanright$(NULL) (NULL) tan (NULL)    zu    (NULL)step /exp     (NULL)"
  651. 6510 [153]"(NULL)mid$tantantan(NULL) mid$tantantan(NULL) mid$tantantan(NULL)"[163]38)"(NULL)"
  652. 6520 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
  653. 6530 print:print"wie + - 0 zu - + 0[146] !"
  654. 6540 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  655. 6550 print"loesungsbuchstabe: >c<"
  656. 6560 ifpeek(847)=1then6630
  657. 6570 print"sie haben leider nicht erkannt, dass
  658. 6580 [153]"die 'gesichter' den zustaeden:
  659. 6590 print"positiv(+[146]),negativ(-[146])und neutral(0[146])"
  660. 6600 print"zugeordnet werden koennen und analog    dazu die pfeile
  661. 6610 [153]"negativ(-wait), positiv(+wait)und neutral(0wait) darstellen."
  662. 6620 [137]6660
  663. 6630 [153]"sie haben sowohl die bedeutung der   "
  664. 6640 [153]"symbole, als auch die analogie voll  "
  665. 6650 [153]"und klar verstanden.-  alle achtung! "
  666. 6660 [141]6720
  667. 6670 [153]"load":[129]i[178]1[164]39:[153]"(NULL)";:[130]:[129]i[178]1[164]22:[153]"cmd(NULL)";:[130]
  668. 6680 [129]i[178]1[164]39:[153]"cmd(NULL)cmd";:[130]:[129]i[178]1[164]22:[153]"on(NULL)cmd";:[130]
  669. 6690 [153]"waitsie kennen nun die richtigen ant-"
  670. 6700 [153]"worten und ihre fehler."
  671. 6710 [141]6720:[137]6740
  672. 6720 [161]a$:[139]a$[178]""[167]6720
  673. 6730 [142]
  674. 6740 [143] analyse
  675. 6750 [153]"loadp e r s o e n l i c h e   a n a l y s e
  676. 6760 print"i h r e r   i n t e l l i g e n z
  677. 6770 [153]"========================================"
  678. 6780 [153]"*** bitte wieder eine taste druecken ***"
  679. 6790 [141]7990
  680. 6800 [153]"loaddie 20 fragen des intelligenztestes
  681. 6810 print"sind folgenden untersuchungskriterien   zugeordnet:
  682. 6820 [153]"(meistens sogar mehreren)
  683. 6830 print"1.  erkennen von analogien
  684. 6840 [153]"2.  erkennen der aussagelogik
  685. 6850 print"3.  mathematisches verstaendnis
  686. 6860 [153]"4.  graph. vorstellungsvermoegen
  687. 6870 print"5.  wortschatz und wortbedeutung
  688. 6880 [153]"ferner wurde die benoetigte zeit        beruecksichtigt.
  689. 6890 gosub7990
  690. 6900 print"[147]sie erfahren nun nacheinander die
  691. 6910 [153]"einzelnen testergebnisse.
  692. 6920 print"abschliessend erhalten sie eine
  693. 6930 [153]"umfassende graphische darstellung.
  694. 6940 gosub7990
  695. 6950 print"[147]zunaechst zur benoetigten zeit:"
  696. 6960 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  697. 6970 [153]"fuer den gesamten test brauchten sie:
  698. 6980 t=peek(840)
  699. 6990 printt" minuten.
  700. 7000 [153]"dies ergibt eine mittlere beantwortungs-zeit fuer eine frage von:
  701. 7010 dt=int(t/2)/10
  702. 7020 printdt" minuten."
  703. 7030 ifdt>=1then7070
  704. 7040 ifdt<1anddt>.8then7060
  705. 7050 print"sie beantworteten die fragen ueberdurch-schnittlich schnell.":goto7100
  706. 7060 print"dies entspricht dem durchschnitt.":goto7100
  707. 7070 print"sie antworteten sehr vorsichtig, was
  708. 7080 [153]"zu einer unterdurchschnittlichen ant-   wortzeit fuehrte.
  709. 7090 ift>=40thent=-10:goto7130
  710. 7100 t=int(-t/2+10)
  711. 7110 ift>0thent=int(t/7.3*10)
  712. 7120 ift>10thent=10
  713. 7130 gosub7990
  714. 7140 print"[147]1. erkennen von analogien :"
  715. 7150 print"===========================
  716. 7160 an[178][194](826)[170][194](828)[170][194](830)[170][194](831)[170][194](832)[170][194](833)[170][194](834)
  717. 7170 an[178]an[170][194](835)[170][194](836)[170][194](841)[170][194](843)[170][194](847)
  718. 7180 [153]"von 12 fragen, die das erkennen von
  719. 7190 print"analogen zusammenhaengen fordern,
  720. 7200 [153]"beantworteten sie"an" richtig."
  721. 7210 [153]"das entspricht einem prozentualen wert
  722. 7220 an=int(an/12*100)
  723. 7230 print"von"an" %."
  724. 7240 an=int(-10+(an/5))
  725. 7250 gosub7990
  726. 7260 print"[147]2. erfassen der aussagelogik :
  727. 7270 [153]"==============================
  728. 7280 al=4*peek(827)
  729. 7290 al=al+peek(831)+peek(833)+(2*peek(838))
  730. 7300 al=al+(2*peek(846))
  731. 7310 print"bei verschiedener gewichtung einzelner
  732. 7320 [153]"fragen erreichen sie hier den prozen-
  733. 7330 al=al*10
  734. 7340 print"tualen wert: "al" %."
  735. 7350 al=int(-10+(al/5))
  736. 7360 gosub7990
  737. 7370 print"3. mathematisches verstaendnis :
  738. 7380 [153]"================================
  739. 7390 m=peek(830)+peek(832)+peek(836)+peek(841)+peek(842)
  740. 7400 m=m*20
  741. 7410 print"hier muss man ihnen einen intelligenz-
  742. 7420 [153]"wert von"m" % zugestehen.
  743. 7430 m=int(-10+(m/5))
  744. 7440 gosub7990
  745. 7450 print"[147]4. graphisches vorstellungsvermoegen :
  746. 7460 [153]"======================================
  747. 7470 g=peek(826)+peek(829)+peek(837)+peek(842)+peek(847)
  748. 7480 g=g*20
  749. 7490 print"ihr graphisches erfassen,
  750. 7500 [153]"das auch rueckschluesse auf ihr raeum-
  751. 7510 print"liches vorstellungsvermoegen und ihre
  752. 7520 [153]"phantasie allgemein zulaesst, ist mit
  753. 7530 printg" % einzustufen."
  754. 7540 g=int(-10+(g/5))
  755. 7550 gosub7990
  756. 7560 print"[147]5. wortschatz :"
  757. 7570 print"===============
  758. 7580 [153]"einige fragen wurden so gestellt,
  759. 7590 print"dass sie rueckschluesse auf ihren wort-
  760. 7600 [153]"schatz zulassen; aber auch ganz beson-"
  761. 7610 [153]"ders auf ihre faehigkeiten bei der er-
  762. 7620 print"kennung von wortintention (bedeutung)
  763. 7630 [153]"und synonyma (woerter gleicher bedeu-
  764. 7640 print"tung).
  765. 7650 [153]"hier betragen ihre faehigkeiten :"
  766. 7660 w[178][194](831)[170][194](833)[170][194](844)[170][194](845)
  767. 7670 w[178]w[172]2
  768. 7680 w[178]w[170][194](828)[170][194](835)
  769. 7690 w[178]w[172]10
  770. 7700 [153]w" %."
  771. 7710 [153]"tantantantantantan"
  772. 7720 w[178][181]([171]10[170](w[173]5))
  773. 7730 [141]7990
  774. 7740 [153]"loadgesamtaufschluesselung ihrer intelligenzwait
  775. 7750 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][145][145]
  776. 7760 [153]"durchschnitt"
  777. 7770 y[178]10:c$[178]"<":d$[178]"=":[153][163]16):[141]8010
  778. 7780 y[178][171]10:d$[178]">":[153]"cmd";:[141]8010
  779. 7790 y[178]t:c$[178]" contwait":d$[178]"t":[153]"";:[141]8010
  780. 7800 y[178]an:c$[178]"stop waitcont":d$[178]"1":[153]"";:[141]8010
  781. 7810 y[178]al:c$[178]" waitcont":d$[178]"2":[153]"";:[141]8010
  782. 7820 y[178]m:c$[178]"for waitcont":d$[178]"3":[153]"";:[141]8010
  783. 7830 y[178]g:c$[178]"print# waitcont":d$[178]"4":[153]"";:[141]8010
  784. 7840 y[178]w:c$[178]"clr waitcont":d$[178]"5":[153]"";:[141]8010
  785. 7850 [153]"for wait
  786. 7860 print" [146]
  787. 7870 [153]"     wait
  788. 7880 print" [146]
  789. 7890 [153]" wait
  790. 7900 print"[144]     [146]
  791. 7910 [153]"contrelative werte:  "t;an;al;m;g;w;
  792. 7920 [153]""[163]18)"zcmdecmdicmdt
  793. 7930 print""tab(22)"a[157]n[157]a[157]l[157]o[157]g[157]i[157]e
  794. 7940 [153]""[163]25)"lcmdocmdgcmdicmdk
  795. 7950 print""tab(28)"m[157]a[157]t[157]h[157]e[157].
  796. 7960 [153]""[163]31)"gcmdrcmdacmdpcmdhcmd.
  797. 7970 print""tab(34)"w[157]o[157]r[157]t[157]s[157]c[157]h[157].";
  798. 7980 geta$:ifa$=""then7980
  799. 7981 print"[147]":end
  800. 7990 geta$:ifa$=""then7990
  801. 8000 return
  802. 8010 ify>0then8050
  803. 8020 ify<0then8090
  804. 8030 printd$;
  805. 8040 return
  806. 8050 fori=1toy:printc$"[145][157]";:next
  807. 8060 printd$;
  808. 8070 fori=1toy:print"";:next
  809. 8080 return
  810. 8090 y=abs(y):fori=1toy:printc$"[157]";:next
  811. 8100 printd$;
  812. 8110 fori=1toy:print"[145]";:next
  813. 8120 return
  814.